home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / lttrgen.arc / MAILLTTR.PRG < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.6 KB  |  62 lines
  1. NOTE - THIS COMMAND FILE WRITES THE FORM LETTER
  2. *
  3. *  - position pointer at top of MAIL.DBF
  4. GO TOP
  5. *  - sets up to store everything that appears on the screen into
  6. *  - a file called PRINT.TXT which the user can later list using
  7. *  - his work processor.
  8. SET ALTERNATE TO PRINT
  9. SET ALTERNATE ON
  10. * PUT PRINT FORMATTER SETUP DIRECTIVES HERE, SUCH AS PAGE NUMBERING,
  11. * PRINTER PITCH, PAGE OFFSET, LINE HEIGHT, AND FOOTNOTES 
  12. * EXAMPLE:
  13. * ? '.OFFSET = 8'
  14. * ? '.CHARACTER WIDTH = 12/INCH'
  15. * etc.
  16. *  - print letter
  17. DO WHILE .NOT.EOF
  18. ? '                                                      Your Company'
  19. ? '                                                      8080 Micro St.'
  20. ? '                                                      Silicon, CA 93002'
  21. ? '                                                      (213) 555-1234'
  22. ? '                                                      '+DATE
  23. *  - print name and address of client
  24. ? $(NAME,13,18)-(' '+$(NAME,1,12))
  25. IF OF#'  '
  26.  ? OF
  27. ENDIF
  28. ? ADDR
  29. IF VAL(ZIP)=0
  30.   ? CITY-(', '+STATE)
  31. ELSE
  32.   ? CITY-(', '+STATE)-(' '+ZIP)
  33. ENDIF
  34. ?
  35. ?
  36. *  - print salutation
  37. IF TITLE=1
  38.   ? 'Dear Mr. '+$(NAME,1,12)
  39. ENDIF
  40. IF TITLE=2
  41.   ? 'Dear Mrs. '+$(NAME,1,12)
  42. ENDIF
  43. IF TITLE=3
  44.   ? 'Dear Ms. '+$(NAME,1,12)
  45. ENDIF
  46. IF TITLE=4
  47.   ? 'Dear Dr. '+$(NAME,1,12)
  48. ENDIF
  49. ?
  50. *  - print text of letter
  51. DO MAILINFO
  52. *
  53. * PUT A WORD PROCESSOR COMMAND TO SKIP TO THE NEXT PAGE HERE
  54. * EXAMPLE
  55. * ? '.SKIP'
  56. *  - this is a wordstar page skip
  57. ? '.pa'
  58. SKIP 
  59. ENDDO
  60. SET ALTERNATE OFF
  61. RETURN
  62.